#!/usr/bin/perl
#
# Freezer test
#
use Counter;
use Fcntl;

$Counter::User::DEBUG = 1;
$users = Counter::open(O_RDWR);

$key = shift;

$rec = $users->get($key);
$rec->thaw();
